Define CharList
 ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
   'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
   'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
   'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '~', '`',
   '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{',
   ']', '}', ';', ':',"'", '"', ',', '<', '.', '>', '/', '?', '?', '?', '?', '?',
   '', '', '');

Define WidthList
 (  27,  27,  27,  29,  27,  27,  29,  31,  16,  20,  27,  24,  36,  29,  29,  24,
    29,  27,  22,  24,  29,  25,  36,  27,  25,  24,  20,  20,  18,  20,  18,  13,
    20,  22,  11,  11,  20,  11,  33,  22,  20,  20,  20,  16,  16,  11,  22,  18,
    27,  20,  18,  16,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  23,  13,
    14,  33,  19,  20,  33,  23,  31,  20,  13,  13,  13,  20,  23,  23,  13,  14,
    13,  14,  13,  13,  11,  22,  10,  23,  10,  23,  11,  20,  20,  20,  20,  20,
    22,  18,  27);

Define RectList
 ( (   0,  0, 31, 49), (  32,  0, 33, 49), (  66,  0, 31, 49), (  98,  0, 34, 49),
   ( 133,  0, 33, 49), ( 167,  0, 34, 49), ( 202,  0, 32, 49), ( 235,  0, 40, 49),
   ( 276,  0, 25, 49), ( 302,  0, 28, 49), ( 331,  0, 36, 49), ( 368,  0, 28, 49),
   ( 397,  0, 46, 49), ( 444,  0, 40, 49), ( 485,  0, 31, 49), ( 517,  0, 32, 49),
   ( 550,  0, 31, 49), ( 582,  0, 33, 49), ( 616,  0, 29, 49), ( 646,  0, 30, 49),
   ( 677,  0, 34, 49), ( 712,  0, 32, 49), ( 745,  0, 42, 49), ( 788,  0, 38, 49),
   ( 827,  0, 29, 49), ( 857,  0, 32, 49), ( 890,  0, 23, 49), ( 914,  0, 23, 49),
   ( 938,  0, 21, 49), ( 960,  0, 26, 49), ( 987,  0, 21, 49), (1009,  0, 32, 49),
   (1042,  0, 27, 49), (1070,  0, 25, 49), (1096,  0, 16, 49), (1113,  0, 24, 49),
   (1138,  0, 24, 49), (1163,  0, 18, 49), (1182,  0, 36, 49), (1219,  0, 25, 49),
   (1245,  0, 22, 49), (1268,  0, 28, 49), (1297,  0, 23, 49), (1321,  0, 20, 49),
   (1342,  0, 19, 49), (1362,  0, 16, 49), (1379,  0, 26, 49), (1406,  0, 21, 49),
   (1428,  0, 31, 49), (1460,  0, 27, 49), (1488,  0, 25, 49), (1514,  0, 22, 49),
   (1537,  0, 22, 49), (1560,  0, 22, 49), (1583,  0, 23, 49), (1607,  0, 22, 49),
   (1630,  0, 24, 49), (1655,  0, 24, 49), (1680,  0, 23, 49), (1704,  0, 22, 49),
   (1727,  0, 22, 49), (1750,  0, 22, 49), (1773,  0, 25, 49), (1799,  0, 12, 49),
   (1812,  0, 15, 49), (1828,  0, 39, 49), (1868,  0, 23, 49), (1892,  0, 23, 49),
   (1916,  0, 31, 49), (1948,  0, 23, 49), (1972,  0, 31, 49), (2004,  0, 17, 49),
   (2022,  0, 19, 49), (2042,  0, 19, 49), (2062,  0, 16, 49), (2079,  0, 25, 49),
   (2105,  0, 26, 49), (2132,  0, 25, 49), (2158,  0, 23, 49), (2182,  0, 19, 49),
   (2202,  0, 23, 49), (2226,  0, 19, 49), (2246,  0, 16, 49), (2263,  0, 14, 49),
   (2278,  0, 10, 49), (2289,  0, 19, 49), (2309,  0, 12, 49), (2322,  0, 26, 49),
   (2349,  0, 10, 49), (2360,  0, 26, 49), (2387,  0, 24, 49), (2412,  0, 19, 49),
   (2432,  0, 19, 49), (2452,  0, 19, 49), (2472,  0, 19, 49), (2492,  0, 19, 49),
   (2512,  0, 39, 49), (2552,  0, 27, 49), (2580,  0, 43, 49));

Define OffsetList
 ( (-5, 0), (-4, 0), ( 0, 0), (-4, 0), (-3, 0), (-2, 0), ( 0, 0), (-4, 0),
   (-4, 0), (-2, 0), (-4, 0), (-4, 0), (-4, 0), (-5, 0), ( 0, 0), (-4, 0),
   ( 0, 0), (-4, 0), (-3, 0), ( 0, 0), ( 2, 0), ( 2, 0), ( 2, 0), (-5, 0),
   ( 2, 0), (-3, 0), (-1, 0), (-2, 0), (-1, 0), (-1, 0), (-1, 0), (-9, 0),
   (-4, 0), (-2, 0), (-2, 0), (-10, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0),
   (-1, 0), (-7, 0), (-1, 0), (-2, 0), (-2, 0), (-2, 0), (-2, 0), (-1, 0),
   (-2, 0), (-5, 0), (-6, 0), (-4, 0), ( 0, 0), (-1, 0), (-2, 0), (-2, 0),
   (-2, 0), (-1, 0), ( 0, 0), ( 2, 0), (-1, 0), ( 0, 0), (-1, 0), ( 2, 0),
   ( 0, 0), (-2, 0), ( 0, 0), (-1, 0), ( 2, 0), ( 1, 0), ( 0, 0), ( 4, 0),
   ( 0, 0), (-7, 0), (-2, 0), (-6, 0), (-1, 0), (-1, 0), (-4, 0), ( 1, 0),
   (-6, 0), (-5, 0), (-3, 0), (-1, 0), ( 4, 0), ( 4, 0), (-3, 0), (-1, 0),
   (-2, 0), (-1, 0), (-5, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   (-8, 0), (-4, 0), (-9, 0));

Define KerningPairs
 ("11","AT","AV","AW","AY","Av","Aw","Ay","F,","F.","FA","LT","LV","LW","LY","Ly",
  "P,","P.","PA","RV","RW","RY","Ry","T,","T-","T.","T:","T;","TA","TO","Ta","Tc",
  "Te","Ti","To","Tr","Ts","Tu","Tw","Ty","V,","V-","V.","V:","V;","VA","Va","Ve",
  "Vi","Vo","Vr","Vu","Vy","W,","W-","W.","W:","W;","WA","Wa","We","Wi","Wo","Wr",
  "Wu","Wy","Y,","Y-","Y.","Y:","Y;","YA","Ya","Ye","Yi","Yo","Yp","Yq","Yu","Yv",
  "ff","r,","r.","v,","v.","w,","w.","y,","y.","G,","G.","dt","dp","ta","td","ts",
  "tf","ft","St");

Define KerningValues

 (  -2,  -2,  -3,  -4,  -2,  -3,  -3,  -3,  -5,  -5,  -4,  -1,  -1,  -1,  -1,  -1,

    -5,  -5,  -3,  -1,  -1,  -1,  -1,  -4,  -4,  -4,  -3,  -3,  -2,  -1,  -4,  -4,

    -4,  -1,  -4,  -1,  -4,  -1,  -1,  -1,  -5,  -2,  -5,  -3,  -3,  -3,  -4,  -4,

    -2,  -4,  -2,  -2,  -3,  -3,  -1,  -3,  -2,  -2,  -3,  -3,  -3,  -1,  -3,  -3,

    -2,  -2,  -4,  -4,  -3,  -4,  -4,  -3,  -4,  -4,  -2,  -4,  -3,  -4,  -4,  -4,

    -1,  -2,  -2,  -1,  -1,  -1,  -1,  -1,  -1,  -5,  -5,  -1,  -1,  -1,  -1,  -1,

    -1,  -1,  -2);

CreateLayer               Main;
LayerSetImage             Main 'TimesNewRoman30BoldItalics';
LayerSetAscent            Main 38;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (10);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 2;
LayerSetLineSpacingOffset Main 2;
LayerSetPointSize         Main 30;

SetDefaultPointSize  30;
